home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / main.dxr / 00061_EXIT.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  489 b   |  13 lines
  1. on mouseDown
  2.   sprite(70).member = "buttonDown"
  3. end
  4.  
  5. on mouseUp
  6.   global lessonNumber, view, programTitle, rate
  7.   sprite(70).member = "buttonUp"
  8.   Ok = baWriteRegString("Software\Covenant\" & programTitle, "lessonNumber", lessonNumber & EMPTY, "HKEY_LOCAL_MACHINE")
  9.   Ok = baWriteRegString("Software\Covenant\" & programTitle, "view", view & EMPTY, "HKEY_LOCAL_MACHINE")
  10.   Ok = baWriteRegString("Software\Covenant\" & programTitle, "rate", rate & EMPTY, "HKEY_LOCAL_MACHINE")
  11.   halt()
  12. end
  13.